(FILECREATED " 8-MAY-75 02:38:24" CON1.;2 1649   

     changes to:  C1 C2 FACETS

     previous date: " 7-MAY-75 23:16:19" CON1.;1)


  (LISPXPRINT (QUOTE CON1COMS)
	      T T)
  [RPAQQ CON1COMS ((FNS * CONCEPTS)
	  CONCEPTS FACETS [COMS * (LIST (CONS (QUOTE IFPROP)
					      (CONS (LIST (QUOTE FILE))
						    CONCEPTS]
	  (P (INIT-C]
(DEFINEQ

(C1
  [LAMBDA (P A)
    (SELECTQ P
	     (P2 (QUOTE V2))
	     (MSG (COMMENT THIS IS A MESSAGE ALL RIGHT))
	     (P3 (PRINT 33)
		 (QUOTE V3))
	     [C-SUGGESTS (COND
			   ((ILESSP (COND
				      ((NUMBERP A))
				      (DO-THRESH))
				    800)
			     (LIST (LIST (QUOTE 700)
					 (QUOTE PRINT)
					 (LIST (QUOTE C1)
					       (QUOTE MSG]
	     [SUGGESTS (QUOTE (COND
				((ILESSP (COND
					   ((NUMBERP A))
					   (DO-THRESH))
					 800)
				  (LIST (LIST (QUOTE 700)
					      (QUOTE PRINT)
					      (LIST (QUOTE C1)
						    (QUOTE MSG]
	     (PROGN (COMMENT C1: SORRY, NO SUCH PART)
		    NIL])

(C2
  [LAMBDA (P A)
    (SELECTQ P
	     (P22 (QUOTE V2))
	     (MSG (COMMENT THIS IS A MESSAGE ALL RIGHT FROM C2))
	     (P3 (PRINT 33)
		 (QUOTE V3))
	     [SUGGESTS (COND
			 ((ILESSP A 2)
			   (LIST (LIST (QUOTE 700)
				       (QUOTE PRINT)
				       (LIST (QUOTE C2)
					     (QUOTE MSG)))
				 (LIST (QUOTE 5)
				       (QUOTE PRIN2)
				       (LIST (QUOTE C1)
					     (QUOTE P3]
	     (PROGN (COMMENT C2: SORRY, NO SUCH PART)
		    NIL])
)
  (RPAQQ CONCEPTS (C1 C2))
  (RPAQQ FACETS (SUGGESTS P22 P2 MSG P1 P3 C-SUGGESTS))
(DEFLIST(QUOTE(
  (C1 CON1)
))(QUOTE FILE))
  (INIT-C)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (354 1481 (C1 366 . 1004) (C2 1008 . 1478)))))
STOP